home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / BAMMAP.ARC / BAM 5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  659 b   |  33 lines
  1. 50 ;BAM 5
  2. 90 ;CONVERT BYTE TO 8 BITS BINARY
  3. 100 BI JSR SVREG
  4. 110 PHP;SAVE FLAGS
  5. 190 LDY #$07
  6. 200 LP1 LDA ORG
  7. 210 AND MASK,Y
  8. 211 ;EXAMPLE ORG = 10101010
  9. 212 ;MASK =        11111110
  10. 213 ;RESULT =      10101010
  11. 214 ;WHEN COMPARED IF RESULT IS EQUAL THEN PUT A ZERO AT BIT ZERO
  12. 215 ;IF WHEN COMPARED THE REULT IS NOT EQUAL PUT A ONE AT BIT ZERO
  13. 220 CMP ORG
  14. 230 BEQ ZERO
  15. 231 ;PUT A ONE AT BIT,Y
  16. 240 LDA #$B1
  17. 250 STA BITS,Y
  18. 260 DEY
  19. 280 BPL LP1
  20. 290 JMP BI1
  21. 291 ;PUT A ZERO AT BIT,Y
  22. 420 ZERO LDA #$B0
  23. 430 STA BITS,Y
  24. 440 DEY
  25. 460 BPL LP1
  26. 590 BI1 JSR RSTREG
  27. 595 PLP
  28. 600 RTS
  29. 610 MASK .BYTE 127 191 223 239 247 251 253 254
  30. 620 BITS .BYTE 0 0 0 0 0 0 0 0
  31. 630 ORG .BYTE 0
  32. 670 .FILE BAM 6
  33.